MIDAS.424
***** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
ASSEMBLING MACLISP -- INITIAL SWITCH VALUES (*=EXPERIMENTAL):
  ITS=0
  TOPS10=0
  TOPS20=0
 SAIL=0
* TENEX=0
 CMU=0
  ML=0
 BIGNUM=1
 OBTSIZ=777
  JOBQIO=1
 HNKLOG=11
  USELESS=1
 DBFLAG=0
* CXFLAG=0
 NARITH=0
* SFA=1
REDEFINITIONS:
TTY: .INSRTed, end input with ↑C
ML==1



AIL==1?SFA==1



	IFE ITS => JOBQIO==:0
	IFG SAIL*<6-NIOBFS> => NIOBFS==:6
MACLISP VERSION 2056 ASSEMBLED ON ITS AT MC
FLUSHING ITS SYMBOL DEFINITIONS
   ==> INSERTED:  ITSDFS 4
FLUSHING ITS BIT DEFINITIONS
   ==> INSERTED:  BITS 68
MAKING SAIL SYMBOL DEFINITIONS
   ==> INSERTED:  SAIDFS 15
MAKING SAIL BIT DEFINITIONS
    ==> INSERTED:  DECBTS 232
    ==> INSERTED:  DEFNS 230
   ==> INSERTED:  MACS 75
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 144
	P0:  3125	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 230
STBS+121	416057	 0.   128-006	CURSOR	Multiply defined
	READTABLE LENGTH = 1010
	P1:  15514	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3356	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 290
	P3:  1402	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
   ==> INSERTED:  ULAP 144
	P4:  2243	[ARITHMETIC SUBROUTINES]
   ==> INSERTED:  ARITH 90
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 18
	P6:  2640	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2113	[GARBAGE COLLECTOR]
	P10:  1161	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 248
	P11:  3416	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 243
	P12:  1721	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 86
	P13:  2340	[FASLOAD]
    ==> INSERTED:  FASLOA 251
MC:QIO 690 L;
FASLP1+25	452311	 3.    19-178	######
	###### RESTORE REF DATE FOR SAIL PROBEF?
OPEN9D+14	453251	 3.    32-059	###### IMAGE TTY OUTPUT?
$LSTNS+3	453461	 3.    35-034	###### REALLY OUGHT TO BE SMARTER
TYMO2+5	454366	 3.    48-028	###### SAIL TTYMOR?
	P14:  5206	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 690
	P15:  3624	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 641
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  466522	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [624 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [523 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
	HIGHEST NLISP INUM=1037
	LOWEST NLISP INUM=-440
	***** FOUR PURE FIXNUM SEGMENTS
	***** FIVE PURE LIST SEGMENTS [406 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [366 UNUSED WORDS]
	***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
	***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
	***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
	TIME TO MAKE INITIAL STRUCT, PASS 1 = 75 SECS
    ==> INSERTED:  STRUCT 580
	***** ONE BIT BLOCK SEGMENT
    ==> INSERTED:  ALLOC 263

**** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
⊂STINIT+33	41	 0.    12-081	D10SET	Undefined⊃
	***** FIVE "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
C:ERROR 144 L;
ALCK0+2		401626	 1.    19-036	ALARMC	Undefined
    ==> INSERTED:  ERROR 144
	P0:  3125	[ERROR HANDLERS AND MESSAGES]
C:*LISP 056 L;
⊂SUSP1+13	412266	 0.   113-029	SUSP3	Undefined⊃
   ==> INSERTED:  STATUS 230
STBS+121	416057	 0.   128-006	CURSOR	Multiply defined
	READTABLE LENGTH = 1010
	P1:  15514	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3356	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 290
	P3:  1402	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 144
	P4:  2243	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 90
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 18
	P6:  2640	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2113	[GARBAGE COLLECTOR]
	P10:  1161	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 248
	P11:  3416	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 243
	P12:  1721	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 86
	P13:  2340	[FASLOAD]
    ==> INSERTED:  FASLOA 251
C:QIO 690 L;
FASLP1+25	452311	 3.    19-178	######
	###### RESTORE REF DATE FOR SAIL PROBEF?
OPEN9D+14	453251	 3.    32-059	###### IMAGE TTY OUTPUT?
$LSTNS+3	453461	 3.    35-034	###### REALLY OUGHT TO BE SMARTER
TTYMO2+5	454366	 3.    48-028	###### SAIL TTYMOR?
	P14:  5206	[NEW I/O PACKAGE]
   ==> INSERTED:  QIO 690
MC:*LISP 056 L;
SAIDSP+12	455511	 0.   173-166	CLOCKI	Undefined
	P15:  3624	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 641
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  466522	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [624 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [523 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
	HIGHEST NLISP INUM=1037
	LOWEST NLISP INUM=-440
	***** FOUR PURE FIXNUM SEGMENTS
	***** FIVE PURE LIST SEGMENTS [406 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [366 UNUSED WORDS]
	***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS]
	***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS]
	***** ONE BIGNUM SEGMENT [773 UNUSED WORDS]
	TIME TO MAKE INITIAL STRUCT, PASS 2 = 175 SECS
    ==> INSERTED:  STRUCT 580
	***** ONE BIT BLOCK SEGMENT
    ==> INSERTED:  ALLOC 263

Constants area inclusive
From	To
4340	4351
402256	403130
420264	420644
424111	424222
425553	425624
427771	430067
432027	432040
434601	434700
436711	437013
440132	440174
443544	443612
445414	445533
450026	450073
454725	455301
460763	461125
32100	32320
Run time = 6:10.90
10062 Symbols including initial ones (62% used)
ββββ